5 REHOHAZE, COPYRIGHT 1930, AARDVARK 

6 REH 1690 BOLTON CALLED LAKE. HI 48088 

7 REH<313)669 3110 - ILLEGAL TO COPY 

10 BATA162,0,169,32,157,0,208,157,0,209 
1157,0,210,157,0,211,157,0,212 
20 DATA157,0,213,157,0,214,157,0,215,23 
2,203,229,96 
30 GOSUB1310:Q=SR 

50 POKE12,Q/256:H=PEEK( 12):P0KE11,Q-256 
*H 

50 REACH:POKED,MJIFH<>96THENQ=Q+1IG0T06 
C 

65 X=USR(X) 

70 PRINT 1 ’ HAZE 

72 PRINT 

74 PRINT"'SPACE BAR' HOMES AHEAD 
76 PRINT 1 "/' TURN RIGHT 

78 PRINT" 'V TURN LEFT 

80 PRINT"'B' TURN AROUND 

32 PRINT"'R' RECALL(HOVEHENT 

34 PRINT 

86 INPUT" DIFFICULTY ( 0-9 ) n iDI IIFDKOORD 

I>9THEN86 
38 POKESR-1,BI 
90 PRINT 

92 PRINT"SIZE OF HAZE <H,U) 

94 PRINTVH*by B HH"HAXIHUH“ i JINPUTV,H 
96 IFV>UH0RV<40RH>HM0RH<4THEN92 

98 PRINT 

99 pokesr-2,h:pokesr-3,v 

100 H=INT( H/2 ):V=INT(V/2) 

110 B0=161JWA=96:C0=32 
112 DIHU( H,V ),V( H,y ) 

155 o=o:z=o 

160 X=INT( RNB( 8XH+1) 

162 fori=-2Toh*2:printchr$< bo )i :next:pr 

I NT 

165 printchr$( bo );:fori=itoh:printchr$( 

wa y , 

167 IFI=XTHENPRINTCHR$<CO )} :G0T0172 
170 F RINTCHR$( UA)} 

172 next:printchr$<UA) 5CHR$( BO) 

195 W(X ,1 )=i:c=2 
200 r=x:s=i:goto 260 

210 IFROHTHEN240 
215 IFSOVTHEN230 
220 R=i:S=i:G0T025O 
230 R=i:S=S+i:G0TO250 
240 R=R+1 

250 IFU-;r,S)= 0THEN210 
260 IFK-1=0THEN530 
265 IFU< R-l,S )<>0THEN530 
270 IFS=1THEN390 
280 IFU<R,S-1K>0THEN390 
29C IFR=HTHEN330 
300 IFU(R+l,S)<>0THEN330 
310 X=INT(RND<1)*3+1) 

320 CNXGOT0790,820,860 
330 IFSOVTHEN340 


334 

338 

340 

350 

360 


390 

400 

405 

410 

415 

420 

430 

440 

450 

460 

470 

480 

435 

490 

500 

510 

520 

530 

540 

545 

547 

550 

552 

554 

560 

570 

580 

590 

600 

610 

620 

625 

630 

640 

650 

660 

670 

680 

685 

690 

695 

700 

710 

720 

730 

740 

750 

755 

760 

770 

780 

790 

800 


IFZ=1THEN370 

S=i:G0T0350 

IFU(R,S+l)O0THEN370 

X=INT( RNIK 1 )I3+1) 

0NXGQT0790,820,910 

X=INT(RND( 1)12+1) 

0NXGGTQ790,820 

IFR=HTHEN470 

IFU(R+l,S )<>0THEN470 

IFSOVTHEN420 

1FZ=1THEN450 

Q=i:G0T0430 

IFW( R,S+1 )<>0THEN450 

X=INT(RNDQ)*3+1) 

0NXG0T0790,860,910 

X=INT( RND( 1 )*2+l) 

QNXG0T0790,860 

IFSOVTHEN490 

IFZ=1THEN520 

o=i:goto5oo 

IFW(R,S+1 )<>0THEN520 

X=INT( RND(1)*2+1) 

GNXG0T0790,910 

GOTG790 

IFS=1THEN670 

1FW< R,S-1 K>0THEN670 

IFR=HTHEN610 

IFU( R+l,S )<>0THEN610 

IFSCMTHEN560 

IFZ=1THEN590 

G=ltGOT0570 

IFU(R,S+1 )<>0THEN590 

X=INT( RND( 1 )I3+1) 

0NXGGT0820,860,910 

X=INT( RND< 1 )>2+l) 

GNXGGT0820,860 

IFSOVTHEN630 

IFZ=1THEN660 

G=i:G0T0640 

IFU(R,S+1K>0THEN660 

X=INT( RNB< 1 )*2+l) 

0NXGDT0820,910 

GGT0S20 

1FR=HTHEN740 

IFW< R+l,S )<>0THEN7 40 

IFSOVTHEN700 

IFZ=1THEN730 

G=1:GOT0330 

IFWR,S+l)O0THEN730 

X=INT( RND<1)*2+1) 

ONXGOT0860,910 

G0TG860 

IFSOVTHEN760 

IFZ=1THEN780 

G=i:GOT0770 

IFU(R,S+1 )<>0THEN780 

G0T0910 

GOTOIOOO 

W( R-1,S)=C 

c=c+i:v< r-i,s)= 2 :r=r-i 




810 IFC=H*V+1THEN1010 
815 a=0tG0T0260 
820 *<R,S-1)=C 
830 C=C+1 

840 V< R»S-1 )=i:S=S-i:iFC=HmiTHEN1010 

850 Q=0:G0T0260 

860 W( R+1»S)=C 

8/0 C=C+i:iFV(RfS)=0 THEN880 

875 0(RfS)=3tG0TO890 

880 0<R,S)=2 

890 R=R+1 

900 IFC=H*V+1THEN1010 
905 G070530 
910 1FQ=1THEN960 

920 W(R»S+1 )=CtC=C+l:IFV( R»S>=0THEN940 
930 V(R,S)=3:G0T0950 
940 R»S )=1 

950 S=S+i:iFC=H*V+lTHEN1010 
955 G0T0260 
960 Z=1 

970 IFV(R>S)=0THEN980 
975 V(r»s)=3:q=o:gotoiooo 
980 V(r»s)=i:q=o:r=i:s=i:goto250 
1000 G0T0210 
1010 REK 

1030 forj=itov:printchr$< bo )?chr$( wa y, 

1040 F0RI=1T0H:PRINTCHR$(C0)} 

1050 IFW IfJ X2THENPRINTCHR$< UA )i 1G0T01 

060 

1055 PRINTCHR$( CO)} 

1060 NEXT;PRINTCHR$( BO KPRINTCHR$(BO >» 
1070 FORI=lTOHIPRINTCHR$(WA)f 
1075 IFV( I»J)=OORV(ItJ)=2THENPRINTCHR$< 
WA >?IQ0T01085 
1080 PRINTCHR$( CO)» 

1085 NEXT:PRINTCHRStWA)»CHR$(BO ) 

1090 next:fori=- 2 toh* 2 :printchr$< bo r, ih 

EXT 

1099 GOT02500 

1200 G=Srt+liPRINT:X=USR(X> 

1205 Q=Q+DU l IFF’EEK< Q )<>B0THEN1205 
1210 Q=Q-DU:IFPEEKtQ )=BOTHENRETURN 
1220 R=Q 

1222 IFR=P1THENPRINTCHR$( 226)?1GQT01270 
1225 IFR=PTTHENPRINTCHR$<14+D*2)»JGOTOl 

270 

1230 J=F’EEK( R >:iFJ=UATHENPRINTCHR$< GW( V 
))?:G0TQ1270 

1235 IFJ=TRTHENPRINTCHR$<GB(V ) )i JG0T012 

70 

1240 PRINTCHR$( GC( V))» 

1270 R=R+1 1 IFPEEK( R JOBOTHEN1222 
1280 PRINT;GOT01210 
1300 RETURN 

1310 SR=600tVK=20:HN=20!IFPEEK( 57088 XI 
27THENHK=40 
1320 RETURN 
2500 CLEAR \ G0SUB25O00 
2510 F ORG=OTODH1FORT=OTOBU JJ=PEEK(X+T-Q 
tl ) 


2520 PlTESrtmiWDWiJJNEXTJNEXT^^^ 
2530 F'T=Stt+DW+l ' : V; 

2540 J=PEEK( PT K IFJ=BOTHENPRINT.JPRINT"i 
AZt BAD ? TRYING AGAIN"IRON 
2550 IFJOCOTHENPT=PT+1 JG0T02540 
2560 P1=PT 

2565 G0SUB1310JJ=9-PEEK( SR-1)JIFJ=OTHEN 

2630 

2570 G0SUB1200 

2575 J=9~PEEK< SR-1) 

2576 JJ=PEEK( SR-2 )*PEEK< SR-3) 

2580 F0RQ=1T0J*50*JJ 

2581 NEXT 
2630 D=1 
2633 H=11R=32 
2635 X=USR( X) 

2700 B=-i:iFB=10RD=2THENB=l 

3000 REN 
3100 L=0 

3105 L=L+1tIFL>HXTHEN3110 
3107 IFPEEK(PT+F(D >*LXWATHEN3105 
3110 G0SUB208901 IFDMXTHENL=HX 
3115 F ORL=LTOHBSTEP-1 
3117 IFFEEK(PT+L(D )+F(D>*L)=«ATHENGOSUB 
2GOOO:GOT03130 
3120 G0SUB2C100 
3130 GOSUB20200 

3135 IFPEEM FT+R( D >+L*F< D) )=WATHENGOSUB 
205001GGTG3150 
3140 GQSUB20600 
3150 G0SUB2070O:NEXT 
3190 GOT08900 
6900 IFQUT=1THEN30000 
8950 POKEAP*14+D>2 

9000 A=PEEK< 11 )1B=PEEK( 12 XPOKEll fOJPOK 
E12»2531X=USR( X >1J=PEEK<531) 

9005 F0KE11»A:P0KE12»B 

9010 IFJ=32THEN9100 

9020 IFJ=66THEN9700 

9030 IFJ=90THEN9300 

9040 IFJ=47THEN9500 

9050 IF.J=82THEHV=1 :GDSUB1200JGOT09000 

9099 G0TO9000 

9100 pl=pt:pt=pt+f(dkifpeek*pt>=bothen 

30000 

9110 1FPEEK( PT »COTHENPT=PL1G0T09000 

9120 PGKEP1»UA1P0KEPT»TR 

9130 GQT02635 

9300 D=D-i:iFD<lTHEND=4 

9310 GQT02635 

9500 D=D+1»IFD>4THEND=1 

9510 G0TG2635 

9700 IFD=10RB=2THEND=B+21G0T02635 
9710 D=D-21G0T02635 
20000 FORG=OTQ1-XT*(L=0) 

20010 POKELUtL )-Il<G»GlJPOKELLIL )+I2*Q, 
E2 

20020 NEXT!RETURN 
20100 FQRQ=OT01-XT*( L=0) 

20110 POKELIK L >-Q,G3:P0KELL< L )-Q»G4 




iynuwntil? ""* 

20120 NEXT'JRETURN 
20200 F0RQ=LU£ L )+IT0LL( L)-ISTEPI 
20210 POKEQ » G51 NEXT t RETURN 
20500 FDRQ=0TOl-XT*< L=0) 

20510 POKERIK L >-I2*G,G2:P0KERL< L >+Il*Q, 
£1 

20520 NEXT!RETURN 
20600 FORG=OT01-XT*(L=0) 

20610 POKERU( L >+G,G3:PDKERL< L >+Q,G4 
20620 NEXT:RETURN 
20700 FORG=RU( L )+ITORL( L >-ISTEPI 
20710 PGKEQ,G61NEXTIRETURN 
20390 IFPEEK( PT+F(D >*L )=BOTHENPOKELU( 3) 
+I1j 14:P0KELU(3)+I1+1,13 
20395 IFL>4THENP0KELU(3)+Il,G7JL=3:RETU 
RN 

1CS99 L=L-1 

20900 FORG=LU( L )+lTORU( L)-l:POKES,G3JNE 

XT 

20910 FGRQ=LL(L )+lTORL(L >-l:P0KEQ,G4:NE 
XT:RETURN 

22027 -A 5*JHN RUSSELL CIRCLE 

25000 G1=189:G2=190:G3=12S:G4=135:G5=14 
3:G6=136:G7=18S 

25001 G1=190:G2=189 

25002 nx=4:nb=o:xt=4 

25003 B0=161:UA=96:C0=32: D*!=24:DH=24 

25004 TR=31 

25005 DIMLU(5),LL(5 )»RUC5>»RL( 5) 

25009 SM=7000 

25010 1=32:BW=24:X=54117:AP=53392ILU=53 
415 

25012 IFPEEKt57088 )>126THEN25020 

25013 I=64:BU=48 

25015 *****PUT IN C2 AND C4 VALUES H 

ERE 

25020 Il=I+i:i2=I-l 
25030 LU=53415 
25035 UL=18 

25040 LL=LU+I*WL:RU=LU+UL J RL=LL+HL 
25050 F0RQ=1T06:LU(Q-1 )=lu+q*2»ii:ru<q- 
1>=RU+G*2*I2 

25060 LL( Q-l )=LL-G*2*I25RL( Q-l >=RL-Q*2* 
Ill NEXT 

25065 READMIIFMO96THEN25065 
25067 DIML( 4),R(4 ),F( 4 ) 

25070 forq=ito4:readl<q>:readr( q);readf 
(q ):next 

25100 DATA-1,1,24,24,-24,1,1,-1,-24,-24 
,24,-1 

25105 DIHGW( 2 >» GC( 2 ),GB( 2 ) 

25110 DATA161,32,32,32,32,161,161,32,46 

25115 forq=oto 2 :readg«<g):readgc< g ):rea 
dgb(qj:next 

25120 GP=240 
25500 RETURN 

30000 PRINT'YOU MADE IT* i :FORG=1T03000: 

*ext:print 

30005 x=usr(x>:v= 2 :gosubi 20 o:pokeh,o:p 

0KE12,253:X=USR( X) 





